home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / ofis / allma.exe / WHT-OPEN.SMM < prev    next >
INI File  |  1994-12-01  |  10KB  |  563 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [recfile]
  12.     
  13.     
  14.     1
  15.     0
  16.     24320
  17.     33564
  18.     3946
  19.     6144
  20. [prn]
  21.     
  22. [port]
  23.     LPT1:
  24. [lang]
  25.     1
  26. [fldnames]
  27.     Field1
  28.     Field2
  29.     Field3
  30.     Field4
  31.     Field5
  32.     Field6
  33.     Field7
  34.     Field8
  35. [desc]
  36.     Calls up Open icons
  37.     
  38.     
  39.     
  40.     
  41.     786354778
  42.     66
  43.     755985920
  44.     753
  45.     3
  46.     225
  47.     1473
  48.     5
  49.     9
  50.     
  51.     
  52.     
  53.     
  54.     
  55.     
  56.     1
  57. [fopts]
  58.     0
  59.     1
  60.     0
  61.     0
  62.     
  63.     
  64. [lnopts]
  65.     2
  66.     Body Text
  67.     1
  68. [docopts]
  69.     5
  70.     2
  71. [GramStyle]
  72.     Business Writing
  73. [lay]
  74.     Standard
  75.     513
  76.     [rght]
  77.         15840
  78.         12240
  79.         1
  80.         1440
  81.         1440
  82.         1
  83.         1440
  84.         1440
  85.         2
  86.         1
  87.         0
  88.         1
  89.         0
  90.         2
  91.         1
  92.         1440
  93.         10800
  94.         5
  95.         1
  96.         720
  97.         1
  98.         1440
  99.         1
  100.         2162
  101.         1
  102.         2883
  103.         1
  104.         3596
  105.     [hrght]
  106.     [lyfrm]
  107.         1
  108.         11200
  109.         0
  110.         0
  111.         12240
  112.         1440
  113.         0
  114.         1
  115.         3
  116.         1 0 0 0 0 0 0
  117.         0
  118.         0
  119.         1
  120.     [frmlay]
  121.         1440
  122.         12240
  123.         1
  124.         1440
  125.         144
  126.         1
  127.         360
  128.         1440
  129.         0
  130.         1
  131.         0
  132.         1
  133.         1
  134.         0
  135.         1
  136.         1440
  137.         10800
  138.         1
  139.         3
  140.         9360
  141.     [txt]
  142.  
  143. <+!>Created by Ashley <-!><+!>December 15, 1993<-!>
  144.  
  145. >
  146.     [frght]
  147.     [lyfrm]
  148.         1
  149.         13248
  150.         0
  151.         14400
  152.         12240
  153.         15840
  154.         0
  155.         1
  156.         3
  157.         1 0 0 0 0 0 0
  158.         0
  159.         0
  160.         2
  161.     [frmlay]
  162.         15840
  163.         12240
  164.         1
  165.         1440
  166.         0
  167.         1
  168.         14544
  169.         1440
  170.         0
  171.         1
  172.         0
  173.         1
  174.         1
  175.         0
  176.         1
  177.         1440
  178.         10800
  179.         2
  180.         2
  181.         4695
  182.         3
  183.         9360
  184.     [txt]
  185. >
  186. [elay]
  187. [l1]
  188.     0
  189. [pg]
  190.     3
  191.     38 71 2 32 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  192.     65 0 30 256 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  193.     90 0 48 1281 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  194. [edoc]
  195. @Defines@<:#284,9360><:f240,2Times New Roman,0,0,0><+,>Define    MoveWindow()    DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)<-,>
  196.  
  197. @Defines@<:#284,9360><+,><:f240,2Times New Roman,0,0,0>Define    Get<-,><+,>Size()        DllCall("user,GetWindowRect,HHN",%1,%2)<-,><:f>
  198.  
  199. @Function@<:#288,9360><-!><+!>function <-!>begin(hdlg)
  200.  
  201. <:#284,9360>thisfile = getrunningmacrofile$()
  202.  
  203. <:#284,9360>metrics = getprofilestring$("wht-open", "Metrics", "{windir}amipro2.ini")
  204.  
  205. @If Endif@<:#284,9360>    if metrics != ""
  206.  
  207. <:#284,9360>        setdlgcallback(0, "{thisfile}!init")
  208.  
  209. @If Endif@<:#284,9360>    endif
  210.  
  211. <:#284,9360>setdlgcallback(20, "{thisfile}!curloc")
  212.  
  213. @If Endif@<+C><:#284,9360><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "HelpFun")  ' This if F1<:f>
  214.  
  215. <:#284,9360>Box = DialogBox(".", "<:f240,2Times New Roman,0,0,0>Opewhat")
  216.  
  217. <:#284,9360>IF Box = -1
  218.  
  219. <:#284,9360>Message("Could not open dialog box; Exiting macro.")
  220.  
  221. <:#284,9360>EXIT FUNCTION
  222.  
  223. <:#284,9360>ELSEIF Box = 0
  224.  
  225. <:#284,9360>EXIT FUNCTION
  226.  
  227. <:#284,9360>ELSEIF Box = 3
  228.  
  229. <:#284,9360>call c:\amipro\macros\newnow.smm()
  230.  
  231. <:#284,9360>ELSEIF Box = 4
  232.  
  233. <:#284,9360>New
  234.  
  235. <:#284,9360>ELSEIF Box = 5
  236.  
  237. <:#284,9360>if GetOpenFileCount() << 0
  238.  
  239. <:#284,9360>    FileOpen
  240.  
  241. <:#284,9360>    elseif(SendKeys("<[>ctrlo]"))
  242.  
  243. <:#284,9360>    exit function    
  244.  
  245. <:#284,9360>    endif
  246.  
  247. <:#284,9360>ELSEIF Box = 6
  248.  
  249. <:#284,9360>call c:\amipro\macros\opendocs.smm()
  250.  
  251. <:#284,9360>ELSEIF Box=7
  252.  
  253. <:#284,9360>SendKeys("<[>altf]g")
  254.  
  255. <:#284,9360>ELSEIF Box=8
  256.  
  257. <:#284,9360>call crash()
  258.  
  259. <:#284,9360>ENDIF
  260.  
  261. <:#284,9360>END FUNCTION
  262.  
  263. <:#284,9360><-!>DIALOG    Opewhat
  264.  
  265. <:#568,9360>-2134900736    14    21    28    111    69    ""    "AmiDialog"    "Open what?"
  266.  
  267. <:#852,9360>6    3    15    15    3    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_fast.bmp"    0 
  268.  
  269. <:#852,9360>6    19    15    15    4    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_new.bmp"    0 
  270.  
  271. 6    35    15    15    5    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_open.bmp"    0 
  272.  
  273. 6    51    15    15    6    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_mult.bmp"    0 
  274.  
  275. 91    35    10    10    7    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_merg.bmp"    0 
  276.  
  277. <+@><:S+-1>26    38    52    10    1004    1342177280    "static"    "'Open'<:> Dialog"    0 
  278.  
  279. <+@><:S+-1>26    21    50    10    1005    1342177280    "static"    "'New' Dialog"    0 
  280.  
  281. <:#560,9360>26    7    46    10    1006    1342177280    "static"    "New/Defaults"    0 
  282.  
  283. <:#560,9360>84    12    24    12    2    1342373888    "button"    "Esc"    0 
  284.  
  285. <:#560,9360>26    54    47    10    1000    1342177280    "static"    "Multiple Docs"    0 
  286.  
  287. <:#560,9360>91    8    10    3    20    1342373888    "button"    ""    0 
  288.  
  289. <:#560,9360>86    45    20    9    1001    1342177280    "static"    "Merge"    0 
  290.  
  291. 104    62    5    5    8    1342373896    "button"    "c:\amipro\icons\dlgicos\in_copy.bmp"    0 
  292.  
  293. 0    1    111    68    1002    1342177287    "static"    ""    0 
  294.  
  295. <:#280,9360>END DIALOG
  296.  
  297. <:#280,9360><:f240,2Times New Roman,0,0,0>FUNCTION HelpFun(hdlg, key)
  298.  
  299. <:#280,9360><:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")
  300.  
  301. @Function@<:#270,9360><+!><:f240,2Times New Roman,0,0,0>end function<-!><:f>
  302.  
  303. <:#280,9360>DIALOG    Helper
  304.  
  305. <:#560,9360>-2143289344    4    127    82    108    54    ""    ""    ""
  306.  
  307. <:#560,9360>39    38    33    12    2    1342373888    "button"    "&Close"    0 
  308.  
  309. <:#560,9360>91    44    12    7    1000    1342177280    "static"    "abb"    0 
  310.  
  311. <:#840,9360>10    7    90    26    1001    1342177281    "static"    "Click on the button that represents the command you wish to execute."    0 
  312.  
  313. 1    1    106    52    1002    1342177287    "static"    ""    0 
  314.  
  315. <:#280,9360>END DIALOG
  316.  
  317. <:#280,9360>function init(hdlg)
  318.  
  319. <:#280,9360>metrics = getprofilestring$("wht-open", "Metrics", "{windir}amipro2.ini")
  320.  
  321. <:#280,9360>x = strfield$(metrics, 1, ",")
  322.  
  323. <:#280,9360>y = strfield$(metrics, 2, ",")
  324.  
  325. <:#280,9360>w = strfield$(metrics, 3, ",")
  326.  
  327. <:#280,9360>h = strfield$(metrics, 4, ",")
  328.  
  329. <:#280,9360>movewindow(hdlg, x, y, w, h, 1)
  330.  
  331. @Function@<:#280,9360>end function
  332.  
  333. @Function@<:#280,9360>function curloc(hdlg)
  334.  
  335. <:#280,9360>dim coord(4)
  336.  
  337. <:#280,9360>getsize(hdlg, &coord)
  338.  
  339. <:#280,9360>x = coord(1)
  340.  
  341. <:#280,9360>y = coord(2)
  342.  
  343. <:#280,9360>cx = coord(3)
  344.  
  345. <:#280,9360>cy = coord(4)
  346.  
  347. <:#280,9360>w = cx - x
  348.  
  349. <:#280,9360>h = cy - y
  350.  
  351. <:#280,9360>writeprofilestring("wht-open", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
  352.  
  353. <+@><:#280,9360>end function
  354.  
  355. <:#280,9360><:f240,2Times New Roman,255,255,255>FUNCTION crash()
  356.  
  357. <:I0,0,0,0><:#280,9360><:f240,2Times New Roman,255,255,255>DialogBox(".","crash")
  358.  
  359. @Function@<:#280,9360><:f240,2Times New Roman,255,255,255>End Function<:f>
  360.  
  361. <:#280,9360><:f240,2Times New Roman,255,255,255>DIALOG    crash
  362.  
  363. <:#560,9360><:f240,2Times New Roman,255,255,255>-2134376448    4    91    25    155    189    ""    ""    "Toolbar Macros by:"
  364.  
  365. <:f240,2Times New Roman,255,255,255>6    7    147    160    1001    1342177290    "static"    "c:\amipro\icons\dlgicos\in_cred.bmp"    0 
  366.  
  367. <:#560,9360><:f240,2Times New Roman,255,255,255>5    6    145    177    1002    1342177288    "static"    "text"    0 
  368.  
  369. <:#560,9360><:f240,2Times New Roman,255,255,255>4    5    147    179    1002    1342177289    "static"    ""    0 
  370.  
  371. <:#560,9360><:f240,2Times New Roman,255,255,255>0    1    155    188    1002    1342177287    "static"    ""    0 
  372.  
  373. <:#280,9360><:f240,2Times New Roman,255,255,255>END DIALOG<:f>
  374.  
  375. >
  376.  
  377. [Embedded]
  378. 00006663
  379. >
  380. [macsum] 8
  381. begin 0 1 5 2
  382. Opewhat 811 0 -1 34
  383. HelpFun 1739 2 1 51
  384. Helper 1782 0 -1 54
  385. init 2083 1 7 61
  386. curloc 2331 1 9 69
  387. crash 2609 0 1 80
  388. crash 2649 0 -1 83
  389. [macse]
  390. 14 begin
  391. 0 802
  392. 13
  393. 8 2
  394. 0 286 "wht-open" "Metrics" "{4}amipro2.ini"
  395. 13
  396. 8 3
  397. 6 3
  398. 7 ""
  399. 18 1
  400. 11 00000129
  401. 0 41 0 "{2}!init"
  402. 0 41 20 "{2}!curloc"
  403. 0 47 112 "HelpFun"
  404. 0 26 "." "Opewhat"
  405. 13
  406. 8 5
  407. 6 5
  408. 5 -1
  409. 18 0
  410. 11 00000304
  411. 0 3 "Could not open dialog box; Exiting macro."
  412. 6 1
  413. 15
  414. 9
  415. 10 00000799
  416. 6 5
  417. 5 0
  418. 18 0
  419. 11 00000358
  420. 6 1
  421. 15
  422. 9
  423. 10 00000799
  424. 6 5
  425. 5 3
  426. 18 0
  427. 11 00000432
  428. 16 c:\amipro\macros\newnow.smm
  429. 10 00000799
  430. 6 5
  431. 5 4
  432. 18 0
  433. 11 00000482
  434. 24 101
  435. 10 00000799
  436. 6 5
  437. 5 5
  438. 18 0
  439. 11 00000626
  440. 0 1050
  441. 13
  442. 5 0
  443. 18 5
  444. 11 00000568
  445. 24 102
  446. 10 00000613
  447. 0 36 "[16463]"
  448. 13
  449. 11 00000613
  450. 6 1
  451. 15
  452. 9
  453. 10 00000799
  454. 6 5
  455. 5 6
  456. 18 0
  457. 11 00000702
  458. 16 c:\amipro\macros\opendocs.smm
  459. 10 00000799
  460. 6 5
  461. 5 7
  462. 18 0
  463. 11 00000760
  464. 0 36 "[8262]g"
  465. 10 00000799
  466. 6 5
  467. 5 8
  468. 18 0
  469. 11 00000799
  470. 16 crash
  471. 6 1
  472. 15
  473. 9
  474. DIALOG Opewhat
  475. -2134900736 14 21 28 111 69 "" "AmiDialog" "Open what?" 
  476. 6 3 15 15 3 1342373896 "button" "c:\amipro\icons\dlgicos\ope_fast.bmp" 0 
  477. 6 19 15 15 4 1342373896 "button" "c:\amipro\icons\dlgicos\ope_new.bmp" 0 
  478. 6 35 15 15 5 1342373896 "button" "c:\amipro\icons\dlgicos\ope_open.bmp" 0 
  479. 6 51 15 15 6 1342373896 "button" "c:\amipro\icons\dlgicos\ope_mult.bmp" 0 
  480. 91 35 10 10 7 1342373896 "button" "c:\amipro\icons\dlgicos\ope_merg.bmp" 0 
  481. 26 38 52 10 1004 1342177280 "static" "'Open' Dialog" 0 
  482. 26 21 50 10 1005 1342177280 "static" "'New' Dialog" 0 
  483. 26 7 46 10 1006 1342177280 "static" "New/Defaults" 0 
  484. 84 12 24 12 2 1342373888 "button" "Esc" 0 
  485. 26 54 47 10 1000 1342177280 "static" "Multiple Docs" 0 
  486. 91 8 10 3 20 1342373888 "button" "" 0 
  487. 86 45 20 9 1001 1342177280 "static" "Merge" 0 
  488. 104 62 5 5 8 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0 
  489. 0 1 111 68 1002 1342177287 "static" "" 0 
  490. 14 HelpFun
  491. 0 26 "." "Helper"
  492. 6 2
  493. 15
  494. 9
  495. DIALOG Helper
  496. -2143289344 4 127 82 108 54 "" "" "" 
  497. 39 38 33 12 2 1342373888 "button" "&Close" 0 
  498. 91 44 12 7 1000 1342177280 "static" "abb" 0 
  499. 10 7 90 26 1001 1342177281 "static" "Click on the button that represents the command you wish to execute." 0 
  500. 1 1 106 52 1002 1342177287 "static" "" 0 
  501. 14 init
  502. 0 286 "wht-open" "Metrics" "{3}amipro2.ini"
  503. 13
  504. 8 2
  505. 0 20 "{2}" 1 ","
  506. 13
  507. 8 4
  508. 0 20 "{2}" 2 ","
  509. 13
  510. 8 5
  511. 0 20 "{2}" 3 ","
  512. 13
  513. 8 6
  514. 0 20 "{2}" 4 ","
  515. 13
  516. 8 7
  517. 0 284 "User,MoveWindow,HHHHHHA" "{0}" "{4}" "{5}" "{6}" "{7}" 1
  518. 6 1
  519. 15
  520. 9
  521. 14 curloc
  522. 5 4
  523. 21 2 [X]
  524. 0 284 "user,GetWindowRect,HHN" "{0}" &2
  525. 5 1
  526. 22 2
  527. 8 3
  528. 5 2
  529. 22 2
  530. 8 4
  531. 5 3
  532. 22 2
  533. 8 5
  534. 5 4
  535. 22 2
  536. 8 6
  537. 6 5
  538. 6 3
  539. 3 1
  540. 8 7
  541. 6 6
  542. 6 4
  543. 3 1
  544. 8 8
  545. 0 16 "{3}" "," "{4}" "," "{7}" "," "{8}"
  546. 13
  547. 0 287 "wht-open" "Metrics" [X] "{9}amipro2.ini"
  548. 6 1
  549. 15
  550. 9
  551. 14 crash
  552. 0 26 "." "crash"
  553. 6 0
  554. 15
  555. 9
  556. DIALOG crash
  557. -2134376448 4 91 25 155 189 "" "" "Toolbar Macros by:" 
  558. 6 7 147 160 1001 1342177290 "static" "c:\amipro\icons\dlgicos\in_cred.bmp" 0 
  559. 5 6 145 177 1002 1342177288 "static" "text" 0 
  560. 4 5 147 179 1002 1342177289 "static" "" 0 
  561. 0 1 155 188 1002 1342177287 "static" "" 0 
  562. 00006688
  563.